home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / LICK SCENE.bas < prev    next >
BASIC Source File  |  2020-07-23  |  1KB  |  38 lines
  1. 1 D$ =  CHR$(4)
  2. 2  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 30  TEXT : HOME : VTAB 8
  4. 40  PRINT "LOOK AT THE SIZE OF THAT TONGUE!!!!!!"
  5. 41  PRINT 
  6. 42  PRINT "DON'T YOU HAVE ANYTHING BETTER TO DO    WITH IT THAN TO LICK ENVELOPES ?"
  7. 43  PRINT 
  8. 44  PRINT "I'VE GOT A BETTER VERSION OF LICK-EM    AND STICK-EM AT MY PLACE!!"
  9. 45  FOR G1 = 1 TO 5000: NEXT G1
  10. 50  PRINT D$;"BLOAD PIC.LICK1,A$7000"
  11. 60  GOSUB 1000
  12. 190  HOME 
  13. 200 A = 1
  14. 390  POKE  -16297,0
  15. 400  POKE  -16304,0
  16. 410  POKE  -16302,0
  17. 411  PRINT D$;"BLOAD PIC.LICK3,A$7000": GOSUB 1000
  18. 412  PRINT D$;"BLOAD PIC.LIC2,A$7000"
  19. 413  GOSUB 1010
  20. 430  GOSUB 590
  21. 450  POKE  -16299,0
  22. 460  GOSUB 650
  23. 480  POKE  -16300,0
  24. 490  GOTO 430
  25. 590  REM 
  26. 650  FOR I = 1 TO 50  STEP A
  27. 660 TN = 200 -2 *A -I
  28. 670  POKE 768,TN: POKE 769,10
  29. 680  CALL 770
  30. 690  NEXT 
  31. 700 A = A +1
  32. 705  IF A >99  THEN 800
  33. 710  RETURN 
  34. 800  HOME : SPEED= 255: PRINT D$;"RUN MENU"
  35. 1000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  36. 1001  RETURN 
  37. 1010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  38. 1011  RETURN